home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Merciful 2
/
Merciful - Disc 2.iso
/
software
/
i
/
imagedeskv1.5.dms
/
imagedeskv1.5.adf
/
imagedesk
/
rexx
/
ViewLha.IDesk
< prev
Wrap
Text File
|
1995-04-05
|
541b
|
27 lines
/* looks for images in lha archives and views them */
/* --------------------- standard startup ----------------------- */
OPTIONS RESULTS
if( ADDRESS() ~= "IDESK_REXXPORT" ) then
ADDRESS IDESK_REXXPORT
/* -------------------------------------------------------------- */
IDGETFILE '"Select lha archive"'
if (RC > 0) then exit
filename = RESULT
ADDRESS COMMAND
'lha -q -x0 e 'filename' t:ID/'
ADDRESS IDESK_REXXPORT
VIEWPATH 't:ID'
ADDRESS COMMAND
'delete t:ID ALL QUIET'
ADDRESS IDESK_REXXPORT
IDREQUEST OK '"Script executed"'